5 POKE36879,29:PRINT"[147][144][205]YSTERY AT"CHR$(14):PRINTTAB(7)"[205]ARPLE"
10 PRINTTAB(12)"[205]ANOR"
100 D$="NESW":T$="EC@BDANMKHGA@FB@F@A@@@EDCI@@@JICH@@G@@@H@@CL@KM@LB@NBM@@"
105 DEFFNR(X)=INT(RND(1)*X)+1:J=RND(-TI):DIMP%(39)
110 FORJ=0TO21:P%(J)=FNR(13)+1:NEXT:J=FNR(10)-1
115 P%(25)=J+1:P%(24)=P%(J):P%(J)=0
120 I=FNR(10)-1:IFI=JTHEN120
125 P%(22)=I+1:P%(I)=0:J=FNR(12):P%(23)=J:P%(9+J)=0
130 FORJ=0TO21:IFRND(1)<.8THENP%(J)=-P%(J)
135 NEXT:PRINT"[208][204][193][217][197][210][211] (1-6)?"
140 GETA$:J=VAL(A$):IFJ<1ORJ>6THEN140
145 P%(38)=J:FORI=1TOJ:P%(25+I)=1:NEXT:Q=1
200 PRINT"[147][144]PLAYER #"Q:PRINTCHR$(142)"---PRESS RETURN"
205 GETA$:IFA$<>CHR$(13)THEN205
210 R=P%(Q+25):PRINT"YOU ARE IN":PRINT"THE ";:X=R+22:GOSUB3000
215 PRINT"LEAVE? [Y/N]"
220 GETA$:IFA$="N"THEN275
225 IFA$<>"Y"THEN220
230 C$=MID$(T$,4*R-3,4):PRINT"EXITS ARE TO THE:"
235 FORI=1TO4:X=I+36:IFMID$(C$,I,1)>"@"THENGOSUB3000
240 NEXT:PRINT"TYPE NSE[146] OR W":I=0
245 GETA$:IFA$<"E"THEN245
250 FORJ=1TO4:IFMID$(D$,J,1)=A$THENI=J
255 NEXT:IFI=0THEN245
260 X=36+I:PRINT"MOVING ";:GOSUB3000:A$=MID$(C$,I,1)
265 I=ASC(A$)-64:IFI<1THENPRINT"NO DOOR":PRINT"NO MOVE":GOSUB4050:GOTO275
270 R=I:P%(Q+25)=I
275 GOSUB4050
276 PRINT"[147]YOU ARE IN":PRINT"THE ";:X=R+22:GOSUB3000
280 PRINT"YOU HAVE";:X=P%(31+Q)+1:IFX=1THENPRINT" NO ITEM":GOTO290
285 PRINT" THE ";:GOSUB3000
290 P=0:PRINT"YOU SEE:":FORI=0TO21
295 IFP%(I)=RTHENX=I+1:PRINT"THE ";:GOSUB3000:P=1
300 NEXT:IFP%(24)=RTHENGOSUB3100:P=1
305 FORJ=1TO6:IFJ<>QANDP%(J+25)=RTHENPRINT"PLAYER"J:P=1
310 NEXT:IFP=0THENPRINT"NOTHING!"
315 INPUT"PRESS RETURN";A$
400 PRINT"[147][144]   OPTIONS:  "
401 PRINT"1 ACCUSE":PRINT"2 DROP":PRINT"3 TAKE":PRINT"4 SEARCH"
405 PRINT"5 PILFER":PRINT"6 NO ACTION":PRINT"[144]CHOOSE NOW!"
415 GETA$:I=VAL(A$):ONIGOTO600,700,750,800,850,500
420 GOTO415
500 INPUT"PRESS RETURN";A$
505 Q=Q+1:IFQ>P%(38)THENQ=1
510 IFP%(Q+25)=0THEN505
515 GOTO200
600 P=1:W=0:Z=10:GOSUB3200:INPUT"VICTIM";J:IFJ<>P%(25)THENP=0
605 GOSUB3200:INPUT"MURDERER";J:IFJ<>P%(22)THENP=0
610 W=10:Z=12:GOSUB3200:INPUT"WEAPON";J:IFJ<>P%(23)THENP=0
615 W=22:Z=14:GOSUB3200:INPUT"SCENE";J:IFJ<>ABS(P%(24))THENP=0
650 IFPTHENPRINT"[147]THAT'S RIGHT!":PRINT"YOU WIN!":GOTO670
655 PRINT"[147]WRONG SOLUTION!":PRINT"YOU LOSE!"
660 P%(25+Q)=0:P%(39)=P%(39)+1:GOSUB3300:IFP%(39)<P%(38)THEN500
665 PRINT"ALL PLAYERS HAVE LOST!"
670 PRINT"THE SOLUTION:":PRINT"[144]THE ";:X=P%(22):GOSUB3000
673 PRINT"KILLED THE ";:X=P%(25):GOSUB3000
675 PRINT"IN THE ";:X=22+ABS(P%(24)):GOSUB3000
678 PRINT"WITH THE ";:X=P%(23)+10:GOSUB3000:END
700 GOSUB3300:IFX=0THENPRINT"DROP NO ITEM":GOTO500
705 PRINT"YOU DROP THE ";:GOSUB3000:GOTO500
750 P=1:PRINT"AVAILABLE:":FORI=10TO21:IFP%(I)=RTHENGOSUB3400
760 NEXT:IFP=1THENPRINT"NO ITEMS":GOTO500
765 INPUT"CHOOSE";Z:IFZ<0ORZ>=PTHEN765
770 IFZ=0THENPRINT"TAKE NOTHING":GOTO500
775 GOSUB3300:IFX>0THENPRINT"DROP THE ";:GOSUB3000
780 I=PEEK(900+Z):P%(I)=100+Q:P%(Q+31)=I:X=I+1:PRINT"YOU TAKE THE ";:GOSUB3000:GOTO500
800 P=0:PRINT"YOU FIND:":FORI=0TO21:IFP%(I)<>-RORRND(1)>.6THEN810
805 P=1:PRINT"THE ";:X=I+1:GOSUB3000:P%(I)=R
810 NEXT:IFP%(24)=-RANDRND(1)<.6THENP=1:GOSUB3100:P%(24)=R
820 IFP=0THENPRINT"--NOTHING"
825 GOTO500
850 P=0:PRINT"NOW HERE:":FORI=1TO6:IFP%(25+I)=RANDI<>QTHENPRINT"PLAYER #"I:P=1
860 NEXT:IFP=0THENPRINT"NOBODY!":GOTO500
865 INPUT"STEAL FROM WHOM";W:IFW<0ORW>P%(38)THEN865
870 IFP%(25+W)<>RTHENPRINT"NOT HERE!":GOTO865
875 GOSUB3300:IFX>0THENPRINT"DROP THE ";:GOSUB3000
880 P=P%(W+31):IFP=0THENPRINT"NOTHING TAKEN":GOTO500
885 P%(Q+31)=P:P%(W+31)=0:P%(P)=100+Q:X=P+1:PRINT"YOU TAKE THE ";:GOSUB3000:GOTO500
3000 FORJ=1TOX:READX$:NEXT:PRINTX$:RESTORE:RETURN
3100 X=P%(25):PRINT"THE BODY OF":PRINT"THE ";:GOSUB3000:RETURN
3200 PRINT"[147][144]":FORI=1TOZ:X=I+W:PRINTITAB(4)": THE ";:GOSUB3000:NEXT:RETURN
3300 I=P%(Q+31):X=0:IFI=0THENRETURN
3305 P%(I)=R:P%(Q+31)=0:X=I+1:RETURN
3400 PRINTPTAB(4)":THE ";:X=I+1:GOSUB3000:POKE900+P,I:P=P+1:RETURN
4000 DATACOOK,BUTLER,GARDENER,DOCTOR,DUKE,DUCHESS,NANNY,"FILM STAR"
4005 DATASENATOR,JUDGE,KNIFE,ROPE,POISON,MACE,PISTOL,SWORD,"ICE PICK"
4010 DATABOMB,RAZOR,LAMP,CLUB,SHOVEL,FOYER,CORRIDOR,HALL,PANTRY,"DINING ROOM"
4015 DATAKITCHEN,STUDY,BEDROOM,BATHROOM,CLOSET,GREENHOUSE,GARDEN,POOL
4020 DATAGARAGE,NORTH,EAST,SOUTH,WEST
4050 FORI=1TO1200:NEXT:RETURN